www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/PlayerP2PBobo.asp
<!--#include file="player.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>BOBOp2p播放器</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
color: #FFFFFF;
}
-->
</style>
</head>
<body oncontextmenu="return false;" onselectstart="return false"
ondragstart="return false" onkeydown="if(event.keyCode==78 && event.ctrlKey) return false;" leftMargin=0 topMargin=0>
<%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net
'郑重声明:
' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' 3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================
Function bytes2BSTR(vIn)
dim i
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
function GetSource(url)
//取得url页面的数据.
dim oXmlHttp,oStream
set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
oXmlHttp.open "GET",url,false
oXmlHttp.send()
GetSource = bytes2BSTR(oXmlHttp.responseBody)
end function
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select P2PUrl from YWNT_TMS_Sever Where ID="&SeverID
Rs.open sql,Conn,1,1
If Not RS.Eof Then
IF Instr(RS("P2PUrl"),"|")<>0 Then
SP2PUrl=split(RS("P2PUrl"),"|")
Else
SP2PUrl=RS("P2PUrl")
End if
End If
RS.Close
Set RS = Nothing
Set RS=Server.CreateObject(YWNT_TMS_RS)
SQL="select P2PUrl from YWNT_TMS_P2PUrl Where ID="&UrlID
Rs.open sql,Conn,1,1
If Not RS.Eof Then
P2PUrl=RS("P2PUrl")
End If
RS.Close
Set RS = Nothing
IF Instr(P2PUrl,"?")<>0 then
httpurl = P2PUrl
bobourl=httpurl
Else
httpurl = SP2PUrl(1) &"/"& P2PUrl
bobourl = GetSource("http://"&SP2PUrl(0)&"/.h2b?httpurl2bobo?http://" & httpurl)
End IF%>
<SCRIPT LANGUAGE="JavaScript">
function CheckPlayer()
{
var bobo;
try
{
bobo = new ActiveXObject("BOBO_ACTIVEX_V3.BoBo_V3Ctrl.1");
if( bobo == null )
{
if(confirm('本影片为P2P格式播放 请首先安装P2P多媒体插件! \n\n 【确定】下载播放器 【取消】终止播放操作'))
document.location.href = "http://www.17bobo.com/software/BoBo_ActiveX_V3.exe";
return false;
}
}
catch( e )
{
if(confirm('本影片为P2P格式播放 请首先安装P2P多媒体插件! \n\n 【确定】下载播放器 【取消】终止播放操作'))
document.location.href = "http://www.17bobo.com/software/BoBo_ActiveX_V3.exe";
return false;
}
delete bobo;
return true;
}
CheckPlayer()
</SCRIPT>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="37"><img src="play/player_03.gif" width="37" height="27" alt="" /></td>
<td width="100%" background="play/player_04.gif"></td>
<td width="104"><img src="play/player_06.gif" width="104" height="27" alt="" /></td>
</tr>
</table></td>
</tr>
<tr>
<td width="8" height="100%" background="play/player_08.gif"></td>
<td width="100%" valign="top" bgcolor="#000000"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="959" height="27" background="play/player_10.jpg"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="91%">影片：<%=MovieName%></td>
<td width="9%"><img src="play/player_16.gif" width="75" height="20" alt="" onclick="alert('点击确认按钮后入全屏播放模式！在全屏模式下按ESC退出全屏播放模式');document.RealObj.SetFullScreen();"/></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" height="100%">
<Object id="BoBo" width=100% height=100% classid='clsid:EC0978ED-24E3-403C-AB7A-060E388553E6' codebase='http://www.d81.cn/BoBo_ActiveX_V3.ocx'>
<PARAM NAME="MaxLinkCount" VALUE="100">
<PARAM NAME="MaxCacheTimeS" VALUE="120">
<PARAM NAME="MinCacheTimeS" VALUE="60">
<PARAM NAME="MaxCacheSizeMB" VALUE="100">
<PARAM NAME="MaxDownloadKbps" VALUE="800">
<PARAM NAME="MaxUploadKbps" VALUE="500">
<PARAM NAME="RealMediaType" VALUE=".mp4,.wmv">
<PARAM NAME="AllowDrag" VALUE="1">
<PARAM NAME="ActName" VALUE="<%=bobourl%>">
</Object></td>
</tr>
</table></td>
<td width="8" background="play/player_12.gif"></td>
</tr>
<tr>
<td height="10" valign="top"><img src="play/player_20.gif" width="8" height="10" alt="" /></td>
<td height="10" background="play/player_22.gif"></td>
<td height="10" valign="top"><img src="play/player_24.gif" width="8" height="10" alt="" /></td>
</tr>
</table>
<%call connclose()%>
</body>
</html>